3 scnclr:char,16,5,"c128/c16":char,14,10,"-flappy{space}dot-":char,11,14,"control{space}cursor{space}up!"
4 l=27:k=7:char,12,11,"catch{space}the{space}heart":char,14,17,"hit{space}any{space}key":do:getk$:loopuntilk$<>"
5 scnclr:t=25:x=0:y=6:o=0:u=0:r=3:print"points:";:printp;:char,28,0,"flappy{space}dot"
6 char,o,2,chr$(35):o=o+1:char,37,r,chr$(35):r=r+0.5:char,u,22,chr$(35):u=u+1:ifu<38then6
9 char,l,k,chr$(211):l=l+1:k=k+3:ifl>31then l=27:k=7:char,31,19,"{space}":goto9
90 getq$:char,x,y,"{Q}":x=x+1:y=y+3:ify>22ory=5orx=38thent=ti:do:getk$:loopuntilk$<>"":run
91 ifx=landy=kthenp=p+10:vol8:sound1,100,15:goto5
101 ifq$=chr$(145)theny=y-4
250 t=t-1:ift=1thent=25:goto90
270 goto 250:rem program by m.quante


